'Test oh aq Update Fval$ Tester.txt by b+ 2020-03-07 mod 2021-02-21 mod 2021-03-09 mod 2021-03-15&16
[
	cpr 2;*** Update Fval$ Tester ***   Note: I had to use {} for Square brackets.
	cpr 5;Arith: a{1,1} > 2,  s{1,1} > 0,  x{2,3} > 6,  d{12,4} > 3     Constants: e = exp{1}, pi = pi{1}
	cpr 7;Math: modulus use m{3,2} > 1   power use p{2,3} > 8   log{}, exp{}, sqr{}, int{}, rnd{multiplier}
	cpr 9;Trig (radians): sin{}, cos{}, tan{}, asin{}, acos{}, atan{}     Angle Conversion: rad{degrees}, deg{radians}
	cpr 11;Boolean: #=# use eq{ , } for = numbers    noteq{ , } for <>    lt{ , } for <    lte{ , } for <=  
	cpr 13; gt{ , } for >   gte{ , } for >=   and{,,, }   or{,,, }   not{ }    seq{$,$} for string equal
	cpr 16;Get the cheat sheet and test string functions! Here are most:
	cpr 17;mid1, mid2, mid3, in2, in3, time, date, CAP, low, rtr (RTrim$), ltr (LTrim$), trim, spc, len
	cpr 19; New extended maths add{a$,b$} subtract{a$,b$} mult{a$,b$} divide{a$,b$}
	
	' first test ever of fval$ working on arguments to loc, at, tag, graphics...
	loc a[19,3];5
	' new 3/16 the next line should create 2 variables: expression and expressionbs
	' expression value is the expression with regular active []
	' expressionbs value will hopefully be expression with the brackets replaced by {} 
	inpbs (just enter to quit) Enter an expression to evaluate;expression
	.
	. This is the expression: ;expression
	. This is the new expressionbs created by new inpbs command ;expressionbs
	.
	Jmp seq[expression,mt]
	result = fval[expression]
	cpr 27;The Tester came up with this result: ;result
	.
	inps Say, would you like to add that to the clipboard? (Enter y for yes);yes
	if seq[cap[left[yes,1]],Y]
		clipadd bnd[expressionbs, = ,result]
		' brand new clipadd command test 3/16
		' with brand new inpbs application using expressionbs variable name created 
		' and value string with brackets swapped.
	fi
	Cls
]
' OK 3/16 now test clip[], get contents into a var and then cls and print it
' I think I assumed clip was delimited by NL$ Chr$(13) + Chr$(10) 
' It might just be Chr$(10), well let's see! Oh I just unloaded clipboard as a simple string!
contents = clip[]
cls
cpr 1;*** Clipboard Contents: ***
loc 3;1
. contents
.
. zzz... press any to end
zzz